#宏定义  窗口_宽度   300
#宏定义  窗口_高度   200

//-----------------------------------------------------//

def  整型   回调 My_EventBtnClick(整型* pbHandled)    //按钮点击事件
	调试输出("按钮-关闭窗口")
	//*pbHandled=1
	返回 0

def 整型 入口函数_窗口() 
	XInitXCGUI()       //初始化界面库
	
	文本  标题="xcgui-window"
	窗口  主窗口
	主窗口.创建(200, 200, 窗口_宽度, 窗口_高度,标题) //创建窗口
	如果 主窗口 ._句柄
		按钮  按钮A
		按钮A.创建(20, 60, 80, 25, "关 闭", 主窗口._句柄) //创建按钮
		按钮A.置类型2(button_type_close)
		
		元素_注册事件C(按钮A._句柄, XE_BNCLICK, My_EventBtnClick) //注册事件 
		主窗口.调整布局() //调整布局
		主窗口.显示(SW_SHOW) //显示窗口
		XRunXCGUI()
	XExitXCGUI()
	返回 0
